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I7VJA14 --- COMMON ADAPTER SUB MAP P/N=6826984 EC=375222 PAGE 01 Lh it-=-= COMMON ADAPTER SUB MAP P/N=6826984 EC=375222 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A14 ** MAP EC HISTORY ** 002500 2B8C 198 A(ENTPT) POINT TO MAP ENTRY POINT TABLE 
TELL Pe LSS eSES SCS SS SCSLSS SPSS SCC LS SSS SCC LCCC LC$§§SCCS CSS SSCL CSC SS SS SS 2 2 2 2 199 Feo tek ok ok a a OR a oko kick i lait ak kc ak ak ak i tc ak ok oe 
5 * x 200 2K RIOR IC IOI IK OI IR a IR i kate afc afc ak ate ake ak ake ak kc ak oe 
6 * KK & PREREQUISITES 3 2K * 201 ** 2K 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR D3C00) * 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER * 
9 x * 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR *k 
10 GRC Co IC CI CI IC a 2 I iI Rak kok i kak ak ko oak ak 205 ** THE INDICATED MESSAGE (S). THERE ARE FOUR TABLES USED FOR THIS * x 
11 * * 206 *x* PURPOSE THEY ARE: ek 
12 * #K MODIFICATIONS KK * 207 ** * 
13 * * 208 ** STEP AND RULE ADDRESS TABLE K 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. 3% 
ME tet ete Lees SS SSS SS CSS CSS SS SS SSSSSCSSOSCSS SSCS CCSLOCSCL CSCC SCS CSCS S See SS 2 2 SY 211 ** ENTRIES ARE AS FOLLOWES * kK 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA aK 
18 * 4K % REA'S INCORPORATED CK * 213 ** B THE STEP NUMBER IN DECIMAL * 
19 * * 214 ** Cc AN EQUATE FOR THE STEP NUMBER * 
20 * NONE x 215 ** a 
21 * x 216 ** RULE INFORMATION TABLE 3K 
22 3 IK RIO RIO II aK I OI Ia II I ok i i fia ak ak acai ofc ake ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * x 
33 313 ES GHEGMBLY°buFtnE aren TuBecAtad BRCGw' sio'or Fasig"Ss Ti 
24 * KX SPECIAL INSTRUCTIONS Fok * = Is 
25 * x 220 ** INDICATED WITH A X*O000" FOR THE RULE EQUATE. * x 
26 * NONE * t- 221 ** ak 
27 * x 222 ** SQUES OK 
28 IK OI IOI IOI CE Ko III KICK a io aK tok ok kc tok kook kk 3k ok 2k 223 ** A) RULE EQUATE xX*'0100! ek 
29 * * poe 7 B) ADDRESS OF THE YES LEG RULE as 
0 * KK . C. HISTO KH * * 
a * Z es x 226 ** SFIXT 3 
32 * DATE 17AUG78 DATE O20CT78 DATE 10JAN79 DATE * 227 #* Bt RULE EQUATE X'0101' * * 
33 * E.C. 755391 E.C. 375102 E.C. 375222 E.C. * 238 ve ADDRESS OF MESSAGE TO PRINT ae 
34 * * 
35 | Oo a 2K I IO OK I IR IRI I I IK I a ok ick tok kak ak 230 ** SSTOP eK 
002500 37 I7A14 START X'2500° START ADDRESS OF ALL 'I' TYPE PROG 231 ** A) RULE EQUATE X*0102!' x 
000100 38 OQUES EQU xX*0100° EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE eK 
000101 39 @FIXT EQU xX'0101°8 EQUATED VALUE FOR MDI STATEMENT 233° ** XK 
000102 4O @STOP EQU xX'0102' EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO *x 
000200 41 @GOTO EQU X*0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE xX't0O2008& eK 
000201 42 @CALL EQU X'O201°8 EQUATED VALUE FOR MDI STATEMENT 236 ** B ADDRESS OF MESSAGE ae ok 
000300 43 @INPT EQU x'0O300!8 EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO a ok 
000400 GQ @QUXX EQU X'O4OO® EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000500 45 @TUXX EQU X*0500°8 EQUATED VALUE FOR MDI STATEMENT 239 ** FE) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * & 
000600 46 @NVLD EQU x'0600! FOQUATED VALUE FOR MDI STATEMENT 241 ** aK 2k 
000000 47 EQ EQU x'oooot EQUATE FOR EQUAL 242 ** SCALL Ke 
000004 48 NE EQU x'O004! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X*0201' *k 
000008 49 HT ' EQU x'ooost EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE Ko 
OO0000C 50 NH EQU X'*O00C* EQUATE FOR NOT HIGH 245 ** ( C) NAME OF MAP TO CALL *k 
000010 51 LO EQU x¥*00108 EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO * x 
000014 52 NL EQU X'OOT4t EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL” REFERENCE 3 
000010 53 LT EQU X'*0010° EQUATE FOR LESS THAN 2U8 ** * 
00000C 54 LE EQU X*OO0O0C! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT OK 
000008 55 GT EQU x*oo08! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X‘'0300° * 
000014 56 GE EQU X'OO14! EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE fEBCDIC On OR HEX) * 
000200 57 ON EQU X'0200°8 EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE * * 
000202 58 OF EQU X'0202'! EQUATE FOR OFF 253 ** D) DESTINATION LOChTTOR OF INPUT DATA a 
000204 59 MX EQU X'O204!8 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA XK 
000000 60 EBC EQU x*Qo0008 EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA OK 
000001 61 HEX EQU x'*OO00OT8 EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA aE ok 
000001 62 XTRNL EQU x'0001* FQUATE FOR EXTERNAL REFERENCE 257 ** kK 
000000 63 INTRNL EQU xX'0000°8 EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX * 
000000 64 PARM OU x*0000! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X*tO4¥OO! a ok 
000001 65 DA EQU x'o001' EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE aK 
000002 66 UA EQU xX*o002° EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS SECONDA OK 
000000 67 DUMMY EQU x*Q0oOo0! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS SECONDARY) * 
001800 69 PID EQU *-X'*QDOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER I * 
000232 70 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO aoe * OK 
00180C 71 STEPNUM EQU PID+xX'tOOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER a 
00180E 72 OPWD1 EQU PID+X'QOOE! ADDRESS OF OPTION WORD ONE 266 ** eK 
001810 73 OPWD2 EQU PID+x*0010'* ADDRESS OF OPTION WORD TWO 267 ** S$TUXX a 3 
001818 74 TUSTATUS EQU PID+x'O0O18°8 ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE x'0500°t ok 
OO181A 75 TUWORK EQU PID+X*'OOTA! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE a 
OO0189A 76 TUPARM1 EQU PID+X*'OOQA? ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS * 
00189C 77 TUPARM2 EQU PID+x'O09C* ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS KOK 
00189E 78 TUPARM3 EQU PID+X'OOQE* ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS * 
0O018A0 79 TUPARMG EQU PID+X'QOAQO! ADDRESS OF PARM & POINTER 273 ** F) MASK FIELD FOR COMPARE * 
0018A2 80 TUPARM5S EQU PID+X*OOA2'* ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES * 
QO18A4 81 TUPARM6 EQU PID+X'QOOA4! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7 EQU PID+X*'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
0018A8 83 TUPARM8 EQU PID+X'OOAS8* ADDRESS OF PARM 8 POINTER 277 ** aE ok 
OCO18AA 84 TUPARMY EQU PID+X"'OQOOAA? ADDRESS OF PARM 9 POINTER 278 ** SNVLD * 
0018AC 85 TUPARM10 EQU PID+X*OOAC' ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600° * 
OO18AE 86 TUPARM11 EQU PID+X'OOAE!® ADDRESS OF PARM 11 POINTER 281 ** * * 
0018R0 87 TUPARM12 EQU PID+X*'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ek 
0018B2 88 TUPARM13 EQU PID+X*OOB2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EQU PID+X'OORB4* ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * ok 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * * 
0018B8 91 TUPARM16 EQU PID+X'OOB8* ADDRESS OF PARM 16 POINTER 286 ** ** 
O0018BA 92 TUMSGWTR EQU PID+X'OOBA'® ADDRESS OF -> TO COMMON MSG WRITER 287 ** 3 NAME OF ENTRY POINT * 
00 18BE 93 TUUA EQU PID+X'OOBE® ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PID+X*OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** % 
0018C2 95 TUBUFF EQU PID+X*00C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A x*9QOQ00! * 
0018C4 96 TULAST EQU PID+X*'O00C4* ADDRESS OF LAST ADDRESSABLE WORD 291 ** ** 
0018C6 97 TURESULN EQU PID+X'OO0C6! ADDRESS OF LENGTH OF TU RESULTS 292 4* MESSAGE TABLE * 
0018C8 98 TURESUL EQU PID+x'O0OC8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
0018FC 99 MAPNAME EQU PID+X"'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
001948 100 TUINPT EQU PID+X'O148! ADDRESS OF $INPT DATA 295 ** * 
00196E 101 PARMARA EQU PID+X'O16E! ADDRESS OF $INPT INPUT AREA 296 ** A eOueee FOR START OF MESSAGE BLOCK * * 
0019B8 102 @DCADD1 EQU PID+X'O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE ** 
OO19BA 103 @DCADD2 EQU PID+X'O1BA® MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * 
0019C4 104 SUPSTAT EQU PID+X'O1C48 ADDRESS OF MDI STATUS 299. ee D) FIRST LINE OF MESSAGE * 
0019D0 105 DEVADD EQU PID+X'01D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
OO19DA 106 DEVADD1 EQU PID+X"'O1DA® ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE ** 
OO19EE 108 DEVADDS OU prbsxtOteEe ADDRESS OF DEVICE ADDRESS TABLE 3 305 ¥* ae gee +. 
+ 
D0 ieee 109 DEVADDS e ou pip cioira RaDeESS a DEVICE rope eee Taere : CDM Se tet SSS SSS SSS SS Se SS eee eee TTS ST ee eT eT CT Se TT ST TSS CSCC SCTCSCSCTOTT TTT TT TE TT 
001A02 110 DEVADDS EOU PTID+X'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 aOR OK OK OR OR OR OR IO ok Ok GIR IGOR IR RRR OR IR FoR koko tok tog koko ak ak ak 
OO1A0C 111 DEVADD6 EQU PID+xX"*O20C* ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 ee DEVADD7 See Pere ADDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003886 O01 1676 pc 4 (0030) 1793+% THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
003888 D7DID6C2ZD3CS5D44U0C 1677 DC CL0030"*PROBLEM EXCHANGE CARD -A2-C2. ' T794+% FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
003836 1678 F00291 EQU * 1795+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
0038A6 0003 1679 D AL2 (0003) 1796+* 
0038A8 0010 1680 pc A (0 VS) ey OO39AA 4020 3960 7A02 1797+T7A02 MVWI xX'7A02'",$TUID SET UP TEST UNIT ID 
0038AA C5SE7C3C8C1D5C7C54 1681 DC CLOO16"EXCHANGE CARD(S) 0039B0 5700 1798+ BXS RT RETURN TO MDI SUPVR 
OO38BA 0024 1682 DC A (0036) _ 1800 COPY ne SO MEQU 
0038BC 6 0c 1F260C 3F26040C 1653 pc CLO036'-A2-C2- IF THIS FAILS TO CORRECT THEt ue ot iene wee PSPS SP EELS PS SSS SS SLES SESS SSE SS SSL SS Stee eer eee SPS SCS SS 2 eS 2 

E RE 1684 DC A (0030 * 
003822 D7D9D6C2D3C5D440C 1685 ere DC C10030 PR ROBLEM EXCHANGE CARD ~A2-D2. ! faen : EQUATED NAMES FOR SUPPORTED SVC'S 4 
003900 0003 1687 Fe AL2 0003) \ 1805 - SSP S PS LS SSE SS SPSS SS TSS SL SS SSS SSS SSS SSS SST Sete eee SSCS SSS SSCS LSC SS SLPS Less 4 
003902 0010 1688 DC A (0016) 000000 1806 OUT EQU 0 OUT SVC 
003904 C5E7C3C8C1D5C7C54 1689 DC CLO016"EXCHANGE CARD(S)' 000001 1807 OUTIN EQU 1 OUTIN SVC 
003914 0024 1690 Dc A (0036) 000002 1808 IDLE EQU 2 IDLE SVC 
003916 60C1F260C4F26040C 1691 DC CLO036'-A2-D2- IF THIS FAILS TO CORRECT THE! 000003 1809 IDLES EQU) 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
00393A OO1E 1692 pc A (0030) 000004 1810 CENGE EQU 4 CHANGE LEVEL SVC 
00393C D7DIDEC2ZD3C5D440C 1693 DC CLO030"PROBLEM EXCHANGE CARD -A2-C2. ! 000005 1811 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 

1694 DIT. 00 000006 1812 EXIT EOU 6 EXIT SVC 
00395A 0000 1696+OPTN1 DC X*' 0000! PROGRAM OPTION CONTROL WORD 1 000007 1813 TERM EQU 7 TERMINATE SVC 
1697+* 000008 1814 RESET EQU 8 RESET DEVICE svc 
00395c 0000 1698+OPTN2 DC X'0000! PROGRAM OPTION CONTROL WORD 2 000009 1815 RID EQU 9 READ ID SVC 
1699+* BIT HEX OOOOOA 1816 START EQU 10 START CYCLE STEAL SVC 
000010 1700+B48  EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 00000B 1817 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000011 1701+B49 FOU 17 1 4 x 00000C 1818 PREP EQU 12 PREPARE DEVICE SVC 
000012 1702+B50 EOU 18 2 3 * THESE BITS ARE USED WITH THE 00000D 1819 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
000013 1703+B51 £Qu 19 3 1 * SECOND OPTION WD AND ARE T9 OOO00R 1820 READ1 EOU 14 READ WITH FUNCTION BIT 3 ON SVC 
000014 1704+B52 FQU 20 q 8 x BE ASSIGNED BY EACH PROGRAMMER OO000F 1821 RSTAT EQU 15 READ STATUS SVC 
000015 1705+B53 EQU 21 5 m * 000010 1822 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 1706+B54 EQU 22 6 2 * 000011 1823 WRIT1 BOU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000017 1707+B55 EQU 23 7 1 * 000012 1824 CTRL EQU 18 CONTROL SVC 
000018 1708+B56 EQU 24 8 8 * 000013 1825 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000019 17094+B57 EQU 25 9 rm * 000014 1826 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
OOOO1A 1710+B58 EQU 26 10 2 * 000015 1827 HIO EOU 21 HALT A 170 
00001B 1711+B59 EQU 27 11 1 * 000016 1828 REQOSD EOU 22 REQUEST USE OF DCP DISK SVC 
00001C 1712+B60 EQU 28 12 8 * 000017 1829 RELSD EOU 23 RELEASE USE OF DCP DISK SVC 
00001D 1713+B61 EQU 29 13 rm * 000018 1830 HALT FEQU 24 HALT SVC 
OOO01E 17144+B62 EQU 30 14 2 * 000019 1831 ETOH EOQU 25 EBCDIC TO HEX SVC (STRING 
00001F 1715+B63 EOU 31 15 1 * OOOO1A 1832 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
OOOO1E 1716+CH EQU 30 14 2 CHARACTER SUPPLIED 00001B 1833 ATOH EQU 27 ASCIT TO HEX SVC (STRING 
OOO01F 1717+CMP  EQU 31 15 1 COMPARE OPERATION 00001C 1834 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00395E 0000 1719+OPTN3 DC X*0000° PPOGRAM OPTION CONTROL WORD 3 00001D 1835 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
1720+* 00001E 1836 ATOE BQU 30 ASCII TO EBCDIC SVC (STRING 
1721+* 0 MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs OO0001F 1837 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
1722+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 000020 1838 WRITI EQU 32 WRITE DATA SETS FOR OTIL 
17 34+%* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE ny oes Ft FPS SS SL SST SSL SL SLES SS SSS SS SS SSL SSS SLPS Stet PS ese ese LS Ce See Se SS Se 
1724+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7 ISBON 
1725+* a ( ) 1842 . EQUATES USED BY TUtS AS CONSTANTS * 
+ XPECTED ERR/ATTENT XE * 
1727+* 5 HARD ERROR BOUND HE 13 Bro Ge Leb oe a Lae TBUU KK RK KK RR OK OK KK ROR OR IOI IR IIR RIOR IIR i kak kok ak fee ak ata ak ak afc 
1728+* 6 WRONG INTR LEVEL SLE 14 NO INTERSUPT NOIN QOO0O04R 1845 PLUS EQU cr+s PLUS CHAR 
1729+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000060 1846 MINUS EQU ers MINUS CHAR 
1730+* BIT HEX 000000 1848 ZERO EQU 0 
000020 17314+MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000001 1849 ONE EQU 1 
000021 1732+ER EOQU 33 1 4 FEROR RECEIVED ON INTERRUPT 000002 1850 TWO EQU 2 
000022 17334+XI EOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000003 1851 THREE EQU 3 
000023 1734+IN EOU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000004 1852 FOUR Bou 4 
000024 1735+XE EQU 36 4 8 EXPECTED ERROR RESPONSE 000005 1853 FIVE EQU 5 
000025 1736+HE EQU 37 5 rm HARD ERROR, 8 RETRIES 000006 1854 SIX EQU 6 
000026 1737+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 000007 1855 SEVEN EQU 7 
000027 17384NI EQU 39 7 1 NO INTERRUPT EXPECTED E 000008 1856 EIGHT EQU 8 
000028 1739+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS 000009 1857 NINE EQU 9 
000029 17404+CSA EQU 4 9 m1 CYCLE STEAL AVAILABLE QOOO0A 1858 TEN EQU 10 
OO0002A 17414CE EOU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 00000B 1859 ELEVN EQU 11 11 
00002B 1742+ISBON EOU 43 11 1 ISB BITS ON (1-7 Q00C0C 1860 TWELV EQU 12 12 
00002C 17434NG EOU 44 12 8 TFST UNIT RESULTS NO GOOD 00000D 1861 THRTN EQU 13 13 
00002D 17444IOCC FOU us 13 4 OIO CC ERROR OOO000F 1862 FIVIN EQU 15 15 
OO0002E 1745+NOIN EOQU U6 14 2 NO INTERRUPT 000010 1863 SIXTN EQU 16 16 
00002F 17464+INCC FOU “7 15 1 INTERRUPT CC ERROR 000020 1864 THRY2 EQU 32 32 
17N74* 000040 1865 SIXT4 EOU 64 64 
1748+* COMMON BUFFER FOR PRINTING DATA 000080 1866 ONE28 EQU 128 128 
003960 0000 eS 00400 ise OWER Ee = 70Su a8 
#$TUID DC A (*-* TEST UNIT IDENTIFICATION 1024 
003962 0000 1752+$IOIN DC . A (*~ * I/O AND INTR CONDITION CODES 000800 1869 TWOK EQU 2048 2048 
003964 0000 1753+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 000C00 1870 THREK ERY 3072 3072 
333268 $098 iresssany® Be AEs BPhSco" EBSEDEGS Saga t= pereey es a ave 
; + - DEVICE DEPENDENT PATA = = 
00396A 0000 1756+DEV2 DC A (*-* * FFFFFE 1874 M2 EQU =2 -2 
00396C 0000 1757+DEV3 DC A (*- * * FFFFFD 1875 M3 EQU =—3 -3 
003968 0000 17584+DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC FFFFFC 1876 M4 EQU -4 —4 
003968 1759+SCTID EQU DEV1 PEAD ID BUFFER FOR IBIS §& TERN 1878 PS SSS PSPS STL SSL SS SS STS TSS SS FESS SSS SL SCS SS Petes SSC CSCSC$LSSSSCSoLOCST SS +S TS +e es Fs 
003970 17604+DCBUF EOU * DCB BUFFER FOR LAST DCB USED 1879 * * 
003970 0000 1761+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 1880 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
003972 0000 1762+DCB2 DC A (k-* LAST DCE TABLE, DEV DEP WORD 1881 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
003974 0000 1763+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 1882 * * 
003976 0000 1764+DCBYu pc A (*-* LAST DCB TABLE, DEV DEP WORD 1883 PSST SCS SSS SSS SSS SSCS SSS CSS ST SS TSC SSCL EST SS SLCC ST TTT TT SCS TTT SE TTT TT TTT TTT 
003978 0000 1765+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000000 1884 BSO EQU 
00397A 0000 1766+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000001 1885 BS1 EQU 1 
00397C 0000 1767+#DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000002 1886 BS2 EQU 2 
00397E 0000 1768+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000003 1887 BS3 EQU 3 
1769+* 000004 1888 BS4 EQU 4 
003980 1770+CSBUF EQU * CYCLE STEAL DATA BUFFER 000005 1889 BS5 EQU 5 
003980 0000 1771+CSTL1 DC A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 000006 1890 BS6 EQU- 6 
003982 0000 1772+CSTL2 DC Ah (*- * CS STATUS WD 1, RESIDUAL COUNT 000007 1891 BS7 EQU 7 
003984 0000 1773+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 1892 BS8 EQU 8 
003986 0000 1774+CSTL4 DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 000009 1893 BSI EQU 9 
003988 0000 1775+CSTL5 DC Ah (*-* CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 1894 BS10 EQU 10 
00398A 0000 1776+CSTL6 DC A (*- * CS STATUS WD’ 5, ERROR STATUS WD 2 00000B 1895 BS11 EQU 11 
00398C 90000 1777+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 00000C 1896 BS12 EQU 12 
00398E 0000 1778+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 1897 BS13 EQU 13 
003990 0000 17794+CSTLO DC A (*-* CS STATUS WD 8, CURRENT HD/CYL OO000E 1898 BS14 EQU 14 
003992 0000 1780+CST10 DC A (*- * CS STATUS WD 9, FLAG/SECTOR O0000F 1899 BS15 . ue 15 
003994 0000 17814+CST11 DC A (*-* CS STATUS WD 10, HEAD/CYLINDER 1901 T7AOODCB 260CT77 
003996 0000 17824+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 1902 ** (T7K00DCB} 
003998 0000 1783+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP Behe 1903 * 
17844+* 1904 Jee oo OR a a RO Io ao Ra io gO Ra IO 728/77 AOR ERO 
00399A 0000 17854+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 1905 * 
00399C 00000000 1786+$DATA DC 2A (*-* OPTIONAL DATA 1906 * DCB TABLES AND DC'S 
003980 0021 1787+$INTL DC X"O0021! INTERRUPT LEVEL REQUESTED 1907 * 

0039A2 0000 1788+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 1908 he Fe 2h 2K 2k ok ak ak ake ke kkk ak kk io lok kk kk kk kok lok tek kok kk fokokkokoiok doko kok tok ok kak koi ge gaa ak tok ak ak ak 
0039A4 00 17894+#$DVID DC x'oor DEVICE ID 1909 * 
0039A6 19D0 1730+SVCAI DC A (DEVADD) ADRS OF DEVICE ADDRESS 1910 ***** DIAGNOSTIC DCB = *****##% 
0039A8 0000 1791+ DC A (*-*) IBIS CYLINDER ADDRESS 1911 * 

1792+* 0039B2 2008 1912 DGDCB DC X'2008! DIAGNOSTIC DCB 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0039B4 0000 1913 DC A (*-* FLAG / PHYSICAL SECTOR# 003A62 201C 2027 RMDCB DC X*201C! CONTROL WORD 
0039B6 0000 1914 DC A (kx HEAD / CYLINDER#'S 003A64 9000 2028 DC A 4 FLAG / PHYSICAL SECTOR# 
0039B8 0000 1915 DC x'o000! NOT USED 003A66 0000 2029 DC A (*-* HEAD / CYLINDER#'S 
0OO39BA 3A8C 1916 pc A(RSBA) RSB ADDRESS 003A68 0000 20 30 DC Ftgor NOT USED 
0039BC 0000 1917 pc A k—* CHAINING ADDRESS OO3A6A 3A8C 2031 DC A (RSBA) RSB ADDRESS 
0039BE 0100 1918 DC X'01008 BYTE COUNT 003A6C 0000 2032 Dc A (*-* CHAIN ADDRESS - 
0039C0 0000 1919 Dc A (*-*) DATA ADDRESS OO3A6E 0084 2033 DC Xx*'oo84! BYTE COUNT 
1920 * 003A70 3A9C 2034 DC A (ID00) DATA AREA ADDRESS 
1921 ***** RECALIBRATE DCB *** #2 %K 2035 * 
1922 * 2036 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
0039C2 0001 1923 CLDCB DC x'o0018 RECALIBRATE DCB 003A72 0000 2037 ZEROO DC X*Q000! CONSTANT ZERO 
0039C4 00000000000000000 1924 DC TA (*-*) OO3A74 0001 2038 ONE1 DC X'O001T! CONSTANT ONE 
1925 * 003A76 0000 2039 RAY DC a(t *) WRITE PARAMETER POINTER 
1926 ***** WRITE SECTOR ID ** *%* 2% 003A78 =EBAD 2040 WDATA DC X"EB6D! WRITE DATA 
1927 * OO3A7A 6BDB 2041 DC X'*6BDBt * 
0039D2 002D 1928 WSDCB DC X'002D! WRITE SECTOR ID CNTL WORD QO03A7C 0000 2042 LGSEC DC X*O0000! LOGICAL SECTOR # 
0039D4 0000 1929 DC A (*-* FLAG / PHYSICAL SECTOR# OO3A7E 0000 2043 PHYSC DC X'O0000! CONVERTED PHYSICAL SEC # 
0039D6 0000 19 30 DC A k= * HEAD / CYLINDER#'S 003A80 0000 2044 WRSID DC X*0000' FLAG,SECTOR (WRT SECTOR ID DATA) 
0039D8 0000 1931 DC X'00008 NOT USED 003A82 0000 2045 DC xXx*oooO0! HEAD,CYLINDER 
0039DA 3A8C 1932 DC A(RSBA) RSB ADDRESS QOO3A84 FF34 2046 WSIDT DC X*'*FF34'° WRITE SECTOR ID TEST DATA 
0039DC 0000 1933 DC A (*-* CHAIN ADDRESS 003A86 5678 2047 DC X*5678! *x 
OO39DE 0004 1934 pc x'oooyr BYTE COUNT 003A88 0000 2048 SCTST DC X*Q0000! READ SECTOR ID TEST DATA BUFFER 
0039E0 3A80 1935 DC A(WRSID) ADDP OF SECTOR ID DATA OO3A8A 0000 2049 DC X*0000! 
1936 * 003A8C 00000000000000000 2050 RSBA pC oR RESIDUAL STATUS BLOCK 
1937 ***** READ SECTOR ID DCB *****xx 003A98 0000 2051 CTRO2 DC X'*GQ0O0! COUNTER 
1938 * 003A9A 0000 2052 CTRO3 DC x*Q000! COUNTER 
0039E2 201C 1939 RSDCB DC Xx'201c* READ SECTOR ID CNTL WORD 003A9C 0000 2053 Ip00 Dc Xx'* 00008 ID ADDRFSS TO BE SET BY USER 
0039F4 0000 1940 pc A (*-* FLAG / PHYSICAL SECTOR# OO3A9E 1010 2054 PDATA DC X'1010! WRITE DIAG WORD 1 DATA PATTERNS 
003986 0000 1941 DC Xx'o0008 HEAD / CYLINDER#'S OO3AA0 5555 2055 DC % ©5555? * 
0039E8 0000 1942 DC X'00008 NOT USED OO3AA2 AAAA 2056 DC X*AAAA® * 
0039FA 3A8C 1943 DC A(RSBA) RSB ADDRESS OO3AA4 FFFF 2057 DC XS PPEE* * 
0039FC 0000 1944 DC A (*-* CHAIN ADDRESS 2058 * 
0O039ER 0004 1945 pc x'ooodr BYTE COUNT FOR READ SECTOR ID 2059 HEA HE He He ee He Ae ee ae a ae a aK a KG 7 7 RE OR OR rR Rok a a ok 9K 
0039F0 3968 1946 DC A(SCTID) SECTOR ID DATA ADDRESS 2060 * 
1947 * 2061 * SUBROUTINE 
1948 ***** SEEK DCB #40 2062 * 
1949 * 2063 * PURPOSE 
0039F2 0000 1950 SKDCB DC x'00008 SEEK DCB CONTROL WORD 2064 * 
0039F4 0000 1951 DC x'0000! NOT USED 2065 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
0039F6 0000 1952 DC A faa) HEAD / CYLINDER#'S 2066 * 
0039F8 0000 1953 DC x'00008 NOT OSED 2067 * CALLING SEQUENCE 
0OO039FA 3A8C 1954 DC A(RSBA) PSB ADDRESS 2068 * 
0039FC 0000 1955 DC A ova CHAIN ADDRESS 2069 * BAL CMPRW,R6 (NORMAL) 
0039FE 0000 1956 DC x'ooodr NOT USED 2070 * 
003A00 0000 1937 P DC x'0000! NOT USED aa : RETURN 
z 
1322 ere CYCLE STEAL STATUS DCB *******x 2073 : BXS (R6,2) - NORMAL 
003A02 2000 1961 CSDCB DC X¥'20008 CONTROL WORD 2075 * 
OO3A04 0000 1962 DC Frot NOT USED 2076 PS ete LS SSS SLES SPSS SS SST PSS STS SSS SSS SSS SSS LSS SSS SC SCSSS SSS eS SSS StS eS te 2 
003A06 0000 1963 DC Fro! NOT USED 2077 * 
003A08 0000 1964 DC For NOT USED OO3AA6 4724 O04 2078 CMPRW MVWI 4,R7 COMPARE BYTE COUNT 
OO3A0A 0000 1965 Dc F'or NOT USED OO3AAA 4324 3968 2079 MVA SETID, R3 ADDR OF RD SEC ID DATA 
003A0C 0000 1966 DC Fro? NOT USED OOZAAE 4524 3A80 2080 MVA WRSID,R5 ADDR OF WR SEC ID DATA 
OO3AO0E OOTA 1967 DC X'OO1A® 13 WORDS OF STATUS OO3AB2 2BA6 2081 CFNEN (R3), (R5) COMPARE ID DATA 
003A10 3980 1968 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA OO3AB4 68C0O 0002 2082 BE R6 by BCH IF WRITE ID DATA OK 
1969 * OO3AB8 68D2 0000 2083 B R6) * COMPARE ERROR 
1970 ****x* WRITE DCB Me I oe eK Oe Ke 2K 3K oie VAM EEL PLS tS SS LS SSPE SL SSS SS SSS SS SSS CSCC SSS CLC SS CSS SSCSSSCTC OCS SSL Se TSS Se TT 
1971 * 2086 * 
003A12 0028 1972 WRDCB DC x'0028°8 WRITE DATA DCB CNTL WORD 2087 * EXECUTE INPUT & OUTPUT COMMANDS 
003A14 0000 1973 DC A (*-* FLAG / RECORD# 2088 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
003416 0000 1974 DC A (k-* HEAD / CYLIDNER#'S 2089 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
003A18 0000 1975 Dc A (*—* SCAN / REPEAT COUNT 2090 * LIST AND ANY SPECTJAL SWITCHES BEFORE BRANCHING TO THE 
OO3A1A 3A8C 1976 DC A (RSBA) RSB ADDRESS 2091 * SUPVR CALL. 
O0O3A1C 0000 1977 DC A nae) CHAIN ADDRESS 2092 * 
OO3A1E 0100 1978 DC x*01008 BYTE COUNT 2093 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
6003A20 0000 1979 pc A (*-*) WRITE DATA ADDRESS 2094 * a 
1980 * 2095 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
13e) bl VERIFY DCB eK IK ck go38 : 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
603A22 0019 1983 VRDCB DC x'0019°8 CONTROL WORD 2098 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
003A24 0000 1984 DC A (*-* FLAG / RECORD# 2099 * 7 
003A26 0000 1985 DC A (*-* HEAD / CYLINDER#'S 2100 * 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 
003A28 0000 1986 DC A (*-* SCAN / REPEAT COUNT 2101 * a 
003A2A 3A8C 1987 DC A (RSBA) RSB ADDRESS 2102 * 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 
003A2C 0000 1988 DC A (*-* CHAIN ADDRESS 2103 * : 
OO03A2E 0000 1989 pc A *-* BYTE COUNT 2104 * 3 BAL SWSEC,R6 WRETE SECTOR ID 
003A30 0000 1990 DC Fort NOT USED 2105 * = 
1991 * 2106 * 4 BAL S$DIAG, R6 DIAGNOSTIC 
1992 ****k* READ DCB Fe CA 2107 * : 
; 1993 x 2108 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
003A32 2018 1994 RDDCB DC X*2018! READ DCB CONTROL WORD 2109 * : 
003A34 0000 1995 DC A (*-* FLAG / RECORD# 2110 * 6 BAL SSEEK,R6 SEEK 
003A36 0000 1996 Dc A (*-* HEAD / CYLINDER#!S 2111 * * 
003A38 0000 1997 DC A (*- * SCAN / REPEAT COUNT 2112 * 7 BAL SRECL, R6 RECALIBRATE 
CO3SA3A 3A8C 1998 Dc A (RSBA) RSB ADDRESS 2113 * ‘6 : 
003A3C 0000 1999 DC A (*-* CHAIN ADDRESS 2114 * 8 BAL SRDID, R6 READ SECTOR ID 
OO3A3E 0100 2000 Dc x*01008 BYTE COUNT 2115 * : 
0OO3A40 0000 200) ‘ Dc A (*-*) READ DATA ADDRESS S16 : 9 BAL SRD, R6 READ 
2093 es WRITE SECTOR ID SKEWED OK a : 10 BAL SRDVY,R6 READ VERIFY 
OO3A4U2 O02F 2005 WKDCB DC X'OO2F? CONTROL WORD 21720 * 11. BAL SWRT,R6 WRITE 
O03R4e 0000 5009 DEA fea} HEAD % CYLINDER#'S) $152 * 12 BAL  SRDIM,R6 
- HEAD CYLINDER#'S RDIM,R READ MULTI SECTOR IDS 
003A48 0000 2008 DC Fro NOT USED 2123 * : 
OO3AUWA 3A8C 2009 DC A RSBA) RSB ADDRESS 2124 Pee ee TSS TT TS SS SS SS TS SPSS SSS SSS SS SS SS STP SSS SSS SSCS SCOSCLSSSOSCOSCC TCL TT eS 
OORRUE 0008 5041 DCX 000K" Sire COuMEE 003ABC 4020 3cD4 39F2 5138 $SEEK MVA  SKDCB, 10 
: COUNT DCB SET UP CONTROL BLOCK FOR SVC CALL 
003A50 3A80 2012 P DC A(WRSID) ADDR OF SECTOR ID DATA OO3AC2 SO7F ae P J XIO 
2014 **** READ SECTOR ID SKEWED HK CK OO3AC4H 4020 3CD4 39C2 2129 SRECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
5015 * OO3ACA 507B 2130 J XIo ” 
OOTRed “our sou ne: | eae Say eee : 003ACC 4020 3cD4 3982 $132 $RDID HVA R 
- G PHYSICAL SECTOR SDCB, IODCB SET UP BLOCK FOR SVC CALL 
003A56 0000 2018 DC Nrees HEAD y CYLINDER#!S OO3AD2 OBBB 2133 MVBI X*BB';,R3 SET BUFFER TO B'S 
003A58 0000 2019 pc For NOT USED OO3AD4 4524 3968 2134 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS 
OO3A5A 3A8C 2020 DC A(RSBA) RSB ADDRESS OO3AD8 4724 0004 2135 MVWI 4,RT7 SETUP BUFFER LENGTH 
002A5C 0000 2021 DC A (*-* CHAIN ADDRESS QOO3ADC 2BAC 2136 FFN R3 {Et INIT READ SECTOR ID BUFFER 
OO3A5E 0004 2022 DC X"OO0O0O4! BYTE COUNT OO3ADE 4020 39F0 3968 2137 MVA scf1p, RSDCBt14 DATA ADDR 
003860 3968 ae : DC A (SCTID) SECTOR ID DATA ADDRESS OO3AE4 506E eet e J XIO 
2025 **** READ MULTIPLE SECTOR IDS eK 2K ok OO3AE6 4020 3CD4 3A62 2140 $RDIM MVA RMDCE,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
2026 * OO3AEC 4724 0084 2141 MVWI 132,R7 SET BUFFER LENGTH 


COMMON ADAPTER SUB MAP P/N=6826984 EC=375222 PAGE 10 COMMON ADAPTER SUB MAP P/N=6826984 EC=375222 PAGE 10A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
QOO3AFO 4524 3A9C 2142 MVA IDOO,R5 SET BUFFER ADDRESS 2820+* --> BAL XI0O1 MOD PARM PRELOADED IN ‘IOMODS 
OO3AF4 OBBB 2143 MVBI X'BBE)R3 SET CLEAR CHARACTERS 2821+* --> BAL XIOCS, F6 OR ae START CYCLE STEAL STATUS, MOD=F 
OO3AF6 2BAC 27144 FFN R3, (R5) CLEAR THE BUFFER 2822+* --> BAL XIOCS—-4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
OO3AF8 5064 eiie : J x16 oon 2 AND DOES NOT POST INTERRUPT STATUS) 
+ 
OO3AFA OBFF 2147 SRD MVBY X'FF*,R3 SETRD BUFFER TO ALL F'S 2825+* RETURN CONTROL 
OO3AFC 6D08 3A40 2148 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 2826+* 
003B00 6F08 3A3E 2149 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 2827+* BXS R6, 2) RETURN TO USER NO ERROR 
OO3B04 2BAC 2150 FFN R3, (R5 CLEAR READ BUFFER 2828+* OR B R6) * RETURN AND RETRY ON ERROR 
003B06 4020 3CD4 3A32 2151 SRDS MVA RDHCB, LODCB SET UP BLOCK FOR SVC CALL 2829 + 3k OC OO OI IO IO RRO IO IO IK Io iO I 
QOO3B0C 505A 2152 J Io | Q003BC2 CB25 3CD6 2831+XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
2153 * 0O03BC6 500E 2832+ J XIO1 CS I/O'S ARE NOT RETRIED 
QOO3BOE 4020 3CD4 3A22 2154 $RDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2833+* 
OO03B14 5056 2155 J XIO 003BC8 4020 3CD6 000D 2834+XIODG MVWI xX'000D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
2156 * OO3BCE 500A 2835+ J XIO1 GO TO CS OPS 
003B16 4020 3CD4 3A12 2157 S$WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2836+* 
003B1C 5052 2158 J XIO QO03BDO0 4CAA 2837+ fem R4,CE RESET CS STATUS INTER ERROR INDICAT. 
2159 * OO3BD2 4C68 2838+ TBTS R4,CS SET "CYCLE STEAL STATUS! IN PROGRESS 
OO3B1E 4020 3CD4 3A52 2160 SRKEW MVA RKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL OO3BD4 4020 3CD4 3A02 2839+XIOCS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO03B24 OBBB 2161 MVBI X*BB',R3 SET BUFFER TO B*S OO3BDA 4020 3CD6 OOOF 2840+ MVWI X*O00fT, TOMOD SET CYCLE STEAL MODIFIER 
003B26 4524 3968 2162 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS QO3BEO 4C28 2841+ TBT re CS) IS CS IN PROGRESS, ERROR CONDITION 
OO3B2A 4724 0004 2163 MVWI 4,R7 SETUP BUFFER LENGTH QOO3BE2 1213 2842+ JON 102 * YES, BYPASS SAVING I/O ADRS 
OO3B2E 2BAC 2164 FFN R3 AE), INIT READ SECTOR ID BUFFER OO3BE4 6E0D 3966 2843+XI0O1 MVW R6,LSTIO SAVE [AR FOR RETRY IF REQUESTED 
003B30 4020 3A60 3968 2165 MVA SChTD, RKDCB+ 14 DATA ADDR OO03BE8 4324 3970 28444 MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
003B36 5045 2166 J XIO QOO3BEC 6D08 3CD4 2845+ MVW ITODCB,RS5 * AND THE FROM ADRS, ALONG WITH 
2167 * OO3BFO OFIA 2846+ MVBI 26,R * THE NUMBER OF MOVES 
003B38 4020 3CD4 3A42 2168 SWKEW MVA WKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL OO3BF2 2D64 2847+ MVEN SR) $83) MOVE 1 STATUS WORD AND ADJUST 
003B3E 4020 3A50 3A80 2169 MVA WRSID,WKDCB+t 14 DATA ADDR QOO3BF4 OBFF 2848+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 
OO3B44 503E 2170 J XIO OO3BF6 4524 3980 2849+ MVA CSBOF,RS * TO ALL ONES * 
2171 * OO3BFA OF1A 2850+ MVBI 6,R * 
OO3B46 4020 3CD4 39D2 2172 SWSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO3BFC 2BAC 2851+ FFN R3 4R2) x 
OO3B4C 4020 39E0O 3A80 2173 MVA WRSID, WSDCB+ 14 DATA ADDR OO3BFE 4020 3962 0708 2852+ MVWI X'6708',SIOIN OVERLAY OLD CONDITION CODES 
003B52 5037 Bite : J XIO 003CO4 CB25 3964 Beene MVWZ S$ISB,R3 ZERO OUT OLD ISB VALUE 
003B54 4020 3CD4 39B2 2176 $DIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C08 4CA1 2855+ TBIR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
QOO03B5A 5033 2177 J XIO OO3COA 4CA3 2856+XIO2 TBTR R4,1N CLEAR INTERRUPT RECEIVED CNTL BIT 
2178 * 003CO0OC 4724 3cD0 2857+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
003B5C 6E0D 3966 2179 SWRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 003C10 4CA6 2858+ TBITR R4, $L5) RESET LEVEL ERROR INDICATOR 
003B60 OBFF 2180 MVBI 255,R3 CLEAR CYCLE STATUS BUFFER 003C12 4C62 2859+ TBTS R4, XI) SET EXPECTED INTR CONTROL BIT 
003B62 4524 3980 2181 MVA CSBOF,R5 * TO ALL ONES * 003C14 600A 2860+ SVC TART CALL SUPVR FOR I/O COMMAND 
Q003B66 OF16 2182 MVBI 22, * 2861+* 
003B68 2BAC 2183 FFN R3 AB) * 003C16 4CAT7 2862+ TBTR R4,NT) IS AN INTR EXPECTED 
OO3B6A 4524 3970 2184 - MVA DCBUF, &5 CLEAR DCB BUFFER TO ALL ONES 003C18 6ACO 0002 2863+ BN R6, 2) * NO, RETURN TO USER 
OO3B6E OF10 2185 MVBI 16,R7 * 2864+% 
003B70 2BAC 2186 FFN R3 iho) * 2865+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
003B72 4020 3962 0708 2187 MVWI X'6708',SIOIN OVERLAY OLD CONDITION CODES 2866+* 
003B78 CB25 3964 2188 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 003C1C 4524 0000 2867+ MVWI 0O,R5 SET UP WORK REG FOR ‘LOST INTR! 
QOO3B7C 4CA3 2189 TBTR RY, IN CLEAR INTERRUPT RECEIVED CNTL BIT 003C20 4CA3 2868+XI08 TBIR fhe IN) HAS INTERRUPT BEEN RECEIVED 
OO3B7E 4CA1 2190 TBTR R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 003C22 1239 2869+ JON Tock * YES, CHECK IF ALL WAS SATISFACTORY 
003B80 4C62 2191 TBTS R4,XI SET EXPECTED INTR CONTROL BIT 003C24 6002 2870+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003B82 4724 3CDO0 2192 MVA OBLK, R7 SET UP CONTROL BLK FOR SUPR 2871+* SUPVR WILL RETURN HERE 
003B86 C0Q20 3CD7 2193 MVB TOMOD+1,R0 GET IDCB FUNC/MODIFIER 003C26 6002 2872+ SVC IDLE ALLOW: ANOTHER PROGRAM A CHANCE TO RUN 
QOO3B8A 402D 3CDE OOFO 2194 RBTWI X*OOFO',IOMOD REMOVE FUNCTION FROM ‘IOMOD' 2873+* SUPVR WILL RETURN HERE 
003B90 3022 2195 SRL 4,R0 RIGHT JUSTIFY FUNCTION BITS IN RO 003C28 7DA1 0001 2874+ AWI 1,R5 ADVANCE TIME OUT COUNT 
003B92 F005 2196 CBI 5,R0 IDCB FUNCTION = 5? 003C2C 18F9 2875+ JNZ XIO8 BCH IF TIME OUT NOT REACHED 
003B94 1003 2197 JE SWRT 1 YES - ISSUE ‘SVC WRIT1'* 003C2E 4C61 2876+ TBTS (Re ER) SET ON ERROR CONTROL BIT 
003B96 6010 2198 SVC WRITO ISSUE WRITE DPC "4x! 003C30 68D2 0000 2877+ B RO * R "NO INTERRUPT! 
003B98 6802 3C1C 2199 B XIO8-4 GO WAIT FOR THE INTERRUPT 287 9 +3 CR ROI CR OI CIC ORR OR to ORK CK 3 F EBT 6** 
Q003B9C 6011 2200 $WRT1 SVC WRIT1 ISSUE WRITE DPC "5X! OP 2880+* 
OO3B9E 6802 3C1C 220) ‘ B XIO8—-4 GO WAIT FOR THE INTERRUPT go tts SUBROUTINE 
OO3BA2 4020 3CD4 3A12 2203 SDGWR MVA WRDCEB, IODCB SET UP CONTROL BLK FOR SVC CALL 2883+ I/O EXECUTE ERROR HANDLING ROUTINE 
OO3BA8 6802 3BC8 2204 B XIODG ISSUE START CS DIAG CMD 2884+* 
2205 * 2885+* PURPOSE 
OO3BAC 4020 3CD4 3A32 2206 $DGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 2886+* 
OO3BB2 6F08 3A3E 2207 MVW RDDCBt+12,R7 GET NO. OF BYTES TO CLEAR 2887+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
O0O3BB6 6D08 3A40 2208 MVW RDDCB+14,R5 ADDR OF READ BUFFER 2888+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
OO3BBA OBFF 2209 MVBI X'FF',R3 CLEAR TO F'S 2889+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
OO3BBC 2BAC 2210 FFN  R3 4R5) % 2890+* 
OO3BBE 6802 3BC8 2211 B XTODG ISSUE START CS DIAG CMD 2891+* CALLING SEQUENCE 
2213 COPY T/7AXEQ OSMAR78 2892+* 
oaAe mon eno OFF ee aes SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
+ 
2779 + 7 A OR ICC GK GO IC ok a dk tok aoe okick tk 40k 29 JUL 7 6% * 2895+* RETURN CONTROL 
2780+%* 2896+* 
Ue SUB-ROUTINE es B (R6) * RETURN TO USERS ERROR HANDLER 
+ + 
2783+* EXECUTE INPUT AND OUTPUT COMMANDS 2899 + 267 2k OR IORI OCI GK ak CK dak ik tak 4k 
2784+* 2900+* 
2785+* PURPOSE 29014+* CC O= DEVICE NOT ATTACHED 
2786+* 2902+* FOR 1= DEVICE BUSY 
2787+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2903+* I/0 2= DEVICE BUSY AFTER RESET 
2788+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 2904+ 3= COMMAND REJECT 
2789+* 2905+* G= INTERVENTION REQUIRED 
2790+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 2906+* 5= INTERFACE DATA CHECK 
2791+ THE I/O COMMAND. 2907+* 6= CONTROLLER BUSY 
2792+% 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 2908+* 7= I/O COMMAND EXCEPTED 
2793+* ISSUED BY THIS SUBROUTINE. 2909+* 
2794+ 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 003C34 706E 2910+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
2795+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 003C36 336A 2911+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
2796+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 003C38 C328 3962 2912+ MVB R3,5I0IN * PUT IN LOG OUT AREA 
2797+ SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 003C3C 68D2 0000 2913+ B (RG) # RETURN TO USER ERROR HANDLER 
2798+%* MYSTERY INTERRUPT (MT) CONTROL BIT IS SET. 29 15 +76 I I IO RIO a a ok ace tok 4 7 ADR 7 6** 
2799+* 5S. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 2916+* IL 
2800+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE "SVC  START'. 2917+* SUB-ROUTINE IL 
2801+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2918+* IL 
2802+* STARTS TO DETERMINE A LOST INTERRUPT. 2919+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL'* IL 
2803+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2920+* IL 
2804+% WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2921+* PURPOSE IL 
2805+%* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2922+* IL 
2806+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2923+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
2807+% 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 2924+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2808+* 11. CHECK TO SEE IF THE EXERCISER IS TO Bk TERMINATED. 2925+* EXPECTED CODE. IL 
2809+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2926+* IL 
2810+* ISSUED BY THIS SUBROUTINE. 2927+* CALLING SEQUENCE IL 
2811+%* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 2928+% IL 
2812+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2929+4+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
2813+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 2930+* IL 
2814+* 2931+* RETURN CONTROL IL 
2815+* CALLING SEQUENCE 2932+* IL 
2816+* 2933+* svc EXIT RETURN TO USER VIA SUPVR IL 
2817+ THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2934+ IL 
2818+4+* 29 35+ 2 I ICRI OO i Ro ok do ddok tik k TT 
2819+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2936+ IL 
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I7A14 --- COMMON ADAPTER SUB MAP P/N=6826984 EC=375222 PAGE 11 I7A14 --- COMMON ADAPTER SUB MAP P/N=6826984 EC=375222 PAGE 11A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2937+* CC O= CONTROLLER END ISB O= ADD STATUS IL OO3CEO 3c40 3053+ DC A (INTER) INTERRUPT ERROR ADRS 
2938+* FOR 1= PROGRAM CONTROL INTERRUPT RITS 1= COMD REJECT IL OO3CE2 0003 3054+INTCC DC X*0003! INTERRUPT CODE EXPECTED 
2939+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 3 O56 tH HK IRI II IOI II IOI IIR II IOI III IO IK db FICK TT MAY 7 6% * 
2940+% 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 3057+* 
2941+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 3058+* SUBROUTIFE 
29424+% 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 3059+* 
2943+% 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 3060+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
2944+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 3061+* 
2945+* IL 3062+* PURPOSE 
003C40 706E 2946+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 3063+* 
003C42 336A 2947+ SRL 13,R3 POSITION INDICATORS IN R3 IL 3064+4+% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO3C44 4424 395A 2948+ MVA OPTN1,RG SET UP BASE ADRS TL 3065+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
003C48 4C28 2949+ TBT (Rd c$) IS CS IN PROGRESS IL 3066+%* TO INTERRUPT. 
OO3C4A 1006 2950+ JOFF INTES * NO IL 3067+ 
OO3C4C 4C6A 2951+ TBTS {Ra CE TURN ON CYCLE STEAL INTER ERROR IL 3068+* CALLING SEQUENCE 
OO3C4HE 6FOD 396E 2952+ MVW 7, DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 3069+* 
003C52 C328 396F 2953+ MVB R3,DEV4+1 * AND THE COND CODE IL 3070+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
0 3c28 rtebet geet INTES TBT (eet TEST EXPECTED ATTEN / ERROR IND tL 307248 > BAL SCONC, R6 
: t* == R CLEAR DEV DEP STG AND CONNECT I/O BLK 
O00O3C5A 1002 2956+ JOFF NTET BCH IF NOT EXPECTED IL 3073+* --> BAL $CONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
003C5C F304 2957+ CBI 4,R3 IS THIS AN "ATTENTION! INTR TL 30744+* . 
003C5E 1006 2958+ JE TNTR1 * YES, BCH TO END INTR SEQUENCE Ti 3075+* RETURN CONTROL 
003C60 4c61 2959+INTET TBTS (RA ER) SET FRROR ON I/O COMMAND CNTL BIT IL 3076+* 
003c62 5004 2960+ J wth1 TL 3077+* BXS {Ee 2) RETURN TO USER VIA REG 6 IF OKAY 
2961+* THE ERROR INTERRUPT USES THE SAME IL 3078+* OR B R6{ ¥ IF THE DEVICE COULD NOT BE CONNECTED 
2962+* ENDING SEQUENCF AS THE NORMAL INTR IL 3079+%* 
29 6U + ROR OOK OI CIO a oi ola a ok ako ok kk ek tok TO APRTETL JO BO + eK He OK KK I IO IOI IK I RIK a do aK ig II dak ik ak ak ak ak 
2965+ IL OO3CE4 OFO06 3081+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
2966+* SOUBROUTINE IL 003CE6 OBOO 3082+ MVBI O,R3 * AND THE DATA TO USE 
2967+* IL 003CE8 4524 3968 3083+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
2968+%* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! nae QOO3CEC 2BAC 3084+ FFN R3 (5) * 
2969+ IL 003CEE CB25 395E 3085+ MVWZ OPTN3, R83 CLEAR OLD CONTROLS FOR NEW ROUTINE 
3>970+* PURPOSE IL OO3CF2 4724 3cDC 3086+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
2971+% IL OO03CF6 6014 3087+ SVC CICB * CONNECT IT TO THIS DEVICE 
go72+% TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL Q003CF8 6AD0O 0000 an BN (R6) * ERROR RFTURN TO USER 
+ 
2974+* CALLING SEQUENCE IL OO3CFC 8828 39A0 3cD4 3090+$CONP MVW SINTL, LODCB PUT IN LEVEL & INTR PARAMETER 
2975+* TL 003D02 4724 3CcD0 3091+ MVA IOBLK, R7 SET R7 TO CONTROL BLOCK TO PREPARE 
2976+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED TL 003D06 4020 3962 0708 3092+ MVWI ¥'0708', $ITOIN INITIALIZE CONDITION CODE STORAGE 
2977+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 003D0C CB25 3964 3093+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
2978+%* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 003D10 6EOD 3966 3094+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
2979+ COMMON SECTION IS HANDLED HERE. TL 003D14 600C 3095+ SVC PREP * AND CALL ON SUPVR 
5980+x IL 003D16 5601 3096+ BXS (R6, 2) RETURN TO USER 
298 1+% RETURN CONTROL TI. SOQ0t CHEN SESEAS RESET ENELSESSIR ESSA ELE R EEE SEES ESET SERN SEER SE KEESS HOG ADE TONS 
982+* IL + 
2983+% SVC EXIT RETURN TO USER VIA SUPVR IL oa otek SUBROUTINE 
+ IL 
2985 +2 ICR OC Ri CC GG ci oi tok tok kok tok ak dot teak toktck tok kk T 7, 3102+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
003C64 706E 2986+ INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 3103+* 
003C66 336A 2987+ SRL 13,R3 POSITION INDICATORS IN R3 TL 3104+* PURPOSE 
joacce 4163 aoer 5 gR0tINTRI BTS OPEN, RA SET UP INTBRRUDT RECEIVED TL 3106+ DISCONNECT THE INTERRUPT C 
: : ONTROL BLOCK TO THIS 
gB3c55 988 gra Haas reaSS SlaT RESEND’ opbher i H8GS —BEEuTPSonS°n0°QRto" SUE" OBeihaGn BED rHg niet ENO! CANB He 
+ a } E OPERATOR DEFINE THE ERR : 
003C72 C328 3963 39924 MVB &3,SIOIN+1 SAVF INTERRUPTING CC CODE TL 31094% ee GO BRETTON 
003C76 6F0D 3964 2993+ MVW R7,$1SB SAVE INTR STATSS AND DEV ADRS IL 3110+* CALLING SEQUENCE 
ogee Ee sagcre Ee, RS CURRENT LEVEL COPIED BY DCP a 3112+ THIS SUBROUTIN 
: , . i + E HAS THE FOLLOWING ENTRIES: 
s93c7e 3231 aa sOpgrrct gee URVEL AND FUP) = UGS > 2 genns 
: -- SET "NG* BIT AND CONVERT DATA TO LOG 
003C7E CD24 39A0 2998+ CW SENTL,RS IS THIS THE CORRECT INTR LEVEL IL 3115+* --> B SCONX RETURN TO MDI SUPERVISO 
003C82 1002 2999+ JE INTR3 * YES, GO EXIT THIS LEVEL TL 3116+* ‘ Ep aa eee 
003C84 4C66 3000+ TBTS R4,$LE) SET INTR LEVEL ERROR CONTROL BIT TL 3117+* RETURN CONTROL 
003C86 4C61 3001+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 3118+* 
gb3cen 1504 ggg Sore Hing! eygM TEE oer gigs even Lever tt jizost on 8 tney TPTHE bOvied 
+ ; ri IF THE DEVICE COUL 
Q0O03Cc8C 4C60 3004+ TBTS gee MT) * NO, SFT MYSTERY INTR CONTROL RIT IL 3121+* Sei aaamce ak 
OO03C8E F304 3005+ CBI VRS ATTENTION INTERRUPT? IL BT 2 D+ RK RR RK EH HK I II III I IO OI OI IR RRR HOR I I a RRC IC aa aie ak ake a 
003C90 1001 3006+ JE INTRX YES IL 003D18 4020 1818 8000 3123+$ERRS MVWI X*'8000' ,TUSTATUS SET ON "NO GOOD! STATUS BIT 
003C92 4Cé6C 3007+ TBTS (R4,NG) ERROR, UNEXPECTED INTERRUPT LE OO3D1E 4724 3EE8 3124+ MVA HEBLK,R7? GET ADRS OF CONTROL BLOCK 
003C94 6006 3008+INTRX SVC EXIT THIS LEVEL VIA SUPVR TO PGM TL 003D22 601A 3125+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
30 10 4 GO OK OR GI OK COOK OG ok okoictaiok tcgetok tok ick 3 FEB Axx 003D24 4020 188E 4040 3126+ MVWI X'4O40!, TOWORK+116 
30 11+* 003D2A 4020 1890 4040 3127+ MVWI X*4O40O', TUWORK4+118 
3012+% THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 003D30 4020 1892 4040 3128+ MVWI X*'4O40', TUWORK+120 
3013+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 003D36 ODO4 3129+$PRNT MVBI 4,R5 
3014+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003D38 4324 181A 3130+ MVA  TOWORK,R3 SET UP BUFFER STORAGE 
3015+% ; 003D3C 6BOD 3EEO 3131+ MVW R3,BUFPT 
301¢4% 003D40 4124 3DBC 3132+ MVA  LIWE1,R1 
003C96 4cA4 3017+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 003D44 OFOS4 3133+ MVBI 4,R7 
003C98 6ACO 0002 3018+ BN R6 + 2) * YES, EXIT THIS ROUTINE 003D46 OFO8 3134+ MVBI 8,R6 
003C9C 4CA8 3019+ TBTR (R4,CS) WAS AUTO CS IN PROGRESS 003D48 2B24 3135+MVBUF MVFN f23)- (21) 
003C9E 1006 3020+ JOFF XIocv * NO, CONTINUE CHECKING OO3D4A OFOY 3136+ MVBI R 
OO03CA0 4C2A 3021+ TBT Ae. CE) Is c§ IN AN ERR CONDITION Q003D4C OQA4O 3137+ MVBI x*4o*,R2 
003CA2 1002 3022+ JOFF xtoco * NO, BCH 0O03D4E C258 3138+ MVB R2 gets 
003CA4 68D2 0000 3023+ B R6) * Cs ERROR 003D50 BEFB 3139+ JCT MVBUF,RE 
003CA8 4C69 3024+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 003D52 O£08 3140+ MVBI 8,R6 
OO3CAA 5601 3025+ BXS R6, GO TO USER 003D54 7921 002c 3141+ AWI 44 R1 
0O03CAC 4C21 3026+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 003D58 BDF7 3142+ JCT MVBUF,R5 
QOO3CAE 100D 3027+ JOFF xXIOCX * NO, EXIT THIS ROUTINE 003D5A 4020 1802 FIFO 3143+ MVWI PIDMSG10,PID+2 
3028+* 003D60 4020 19B8 3EE6 3144+ MVA FAKETU,@DCADD1 
003CBO0 C520 3963 3029+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 003D66 4020 19BA 3EE2 3145+ MVA DC2PT, @DCADD2 
QOO03CB4 F502 3030+ CBI 2,R5 IS THIS CC=2 003D6C 402c 19C4 0080 3146+ OWI BITO080, SUPSTAT 
003CB6 1003 3031+ JE XIOCQ YES 003D72 4324 3960 3147+ MVA $TUID,R3 SET UP BUFFER STORAGE 
003CB8 F506 3032+ CBI 6,R5 IS THIS CC=6 003D76 6F13 18BA 3148+ BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER 
QOO3CBA 68D1 0000 3033+ BNE (Be) * * NO, BCH TO ERROR HANDLER 3149+ 
OO3CBE C520 3964 3034+XIOCQ MVB ISB,R5 cet fAST ISB DATA BYTE AND IF CS OO3D7A 3150+$CONX EQU * 
003CC2 6A00 3BDO 3035+ BN Xx roc §-4 * AVAILABLE, GO AND GET IT 003D7A C720 19D0 3151+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
003CC6 68D2 0000 3036+ B R6) * ERROR QOO3D7E 6013 3152+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
OO3CCA CB25 395F 3037+XIOCX MVWZ PTN3,F3 CLEAR OUT OPTION 3 CNTL BITS 003D80 6812 39A2 3153+ B TURTN* RETURN TO MDI SUPERVISOR 
003CCE 5601 g02ee BXS (R6, 2} RETURN TO USER VIA REG 6 nianeir. aoue a tee eens pivode 
+ + DC 
3040+* 1/0 PARAMETER LIST 003D86 0008 3156+ DC 1 {0008}, LINE LENGTH 8 CHARS 
30414 003D88 5cC5C40C1C2D6D9E3 3157+ DC C'**x ABORT? 
003cDO0 19D0 3042+IOBLK DC A (DEVADD) ADRS OF DFVICE ADRS 003D90 0028 3158+ DC A (0040) LINE LENGTH = 40 CHAR 
003CD2 3cC34 3043+ pc A (XIOER) FRROR ROUTINE ADRS 003D92 E3E4C9C44LOCODECSD 3159+ DC C'TUID IOIN ISB INST SECT ID DATA CSCC ! 
003CD4 0000 3044+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR QOO3DBA 0028 3160+ DC A (0040) LINE LENGTH = 40 CHAR 
003CD6 0000 3045+IOMOD DC A (*~* MODIFIER 0OO3DBC 4O404040404040404 31614+LINET DC ct ' 
003CD8 0000 3046+ DC A (*-* ADRS OF LAST SVC CALL QOO3DE4 0028 3162+ DC A (0040) LINE LENGTH = 40 CHAR 
003CDA 0000 304 7+ IORSP Dc A (k-* SECOND WORD OF LAST IDCB eA C302 B3D340C4C3C2F 31634 DC crCNTL DCB1 DCB2 DCB3 DCB4 CHAD BYCT ADRS ! 
+ out LINE = 
3049+ INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 003E10 4Ok4O4O4OFO4O40404 31654+LINE2 DC ce eoueen a euay 
3050+* 003E38 0028 3166+ DC A (0040) LINE LENGTH = 4O CHAR 
QQ03CDC 19D0 3051+INTBL DC A DETAR) ADRS OF DEVICE ADRS QOO3E3A C3E2Z60FO4OC3E260F 3167+ DC C'*CS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
003CDE 3Ccé64 3052+ DC A (INTOK) INTERRUPT OK RETURN ADRS 003F62 0028 3168+ DC A (0040) LINE LENGTH = 4O CHAR 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
OO3F64 4OuKOKOKOKOSOUOKOG 31694+LINE3 DC ct ' DECLARED NAME ATTRIBUTES AND REFERENCES 
OO3E8C 0028 3170+ pc A (0040) LINE LENGTH = 4O CHAR 
OO3E8E C3E260F840C3E260F 3171+ pc C'cS-8 CS-9 CS-A CS-B CS-C ' 3081 $CONC ADDRESS. HEX LOCATION(O0003CE4) IN CSECT(I7A14 ) LENGTH (2) 
OO3EB6 0028 3172+ DC A (0040) LINE LENGTH = 4O CHAR 3212 3248 
OO3EB8 4O4O4OuOuOuOKO4uOY 3173+LINEM DC Cc ' 2206 $SDGRD a APBRESS. HEX LOCATION (OO003BAC) IN CSECT(I7A14 ) LENGTH (6) 
+ 
0O03EEO 0000 3175+BUFPT DC A ea 1787 SINTL ADDRESS. HEX LOCATION(000039A0) IN CSECT(I7A14 ) LENGTH (2) 
OO3EE2 3D84 31764+DC2PT DC A (BEGIN) 2998 3090 
OO3EE4 0101 3177+FIXTU DC X¥*0101' 1752 $I OIN ADDRESS. HEX LOCATION (00003962 IN CSECT(I7A14 ) LENGTH (2) 
OO3EFE6 0101 3178+FAKETU pC xXt0o101!8 2187 2852 2912 299 3029 3092 
OOF1FO 3179+PIDMSG10 EQU X*FITFO! 1753 $ISB ADDRESS. HEX LOCATTON (00063965) IN CSECT (I7A14 ) LENGTH (2) 
000080 3180+BIT0080 EQU x'00808 2188 2853 2993 3034 3093 
3181+%* 1737 $LE ABSOLUTE. HEX VALUE(00000026) 
3182+ DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 2858 3000 
3183+%* 1751 $TUID ADDRESS. HEX LOCATION(00003960) IN CSECT(I7A14 ) LENGTH (2) 
OO3EE8 003A 3184+HEBLK DC oe) NUMBER OF BYTES TO CONVERT 1797 3147 3185 3210 3246 
OO3EEA 3960 3185+ DC TD) FROM ADRS 2179 $WRTO ADDRESS. HEX LOCATION (00003B5C) IN CSECT(I7A14 ) LENGTH (4) 
OO3EEC 181A 3186+ DC TOWOR ) AND THE TO ADRS 3218 3254 
3187 COPY TIA 19MAY78 2200 $WRT1 ADDRESS. HEX LOCATION(00003B9C) IN CSECT(I7A14 ) LENGTH (2) 
3188 T7A28 TUIT C1508 2197 
SUB Ee en TARAS Oe ETRE TET Teer tothe tree eC eee ee eee e eee eee ete e et OC ERT GFA 102 @DCADD1 A Heap HEX LOCATION (000019B8) IN CSECT(I7A14 ) LENGTH (1) 
+ 
eee TEST UNIT 103 @DCADD2 zt eBeess- HEX LOCATION (000019BA) IN CSECT(I7A14 ) LENGTH (1) 
+ 
3193+ WRITE DIAGNOSTIC REGISTER 1 LOOP 39 @FIXT ABSOLUTE. HEX VALUE (00000101) 
3194+* 657 672 687 717 912 933 936 939 960 
3195+* PURPOSE 963 966 987 990 993 1014 1017 1020 1041 
3196+* 1044 1047 1068 1071 1074 +1095 1098 1101 1122 
31974+* WRITE TO CAP DIAGNOSTIC WORD 1 USING DATA PATTERN PASSED 1125 1128 1149 1152 1155 1176 1179 #1182 1203 
3198+* TO TEST UNIT BY MAP. NO RESULTS WORDS ARE RETURNED. 1206 1209 1230 1233 1236 1257 1260 1263 1284 
3199+ 1287 1290 1311 1314 +1317 «#1338 1341 += «21344 
3200+% CALLING SEQUENCE 44 @GOTO ABSOLUTE. HEX VALUE (00000200) 
+ 
3202+* MDI=$TUXX, 'T7A28, REPT=L7A28, PLNG=4, PARM=XXXX'! uu @QU XX ABSOLUTE. HEX VALUE (90000400) 
3203+* 708 915 924 942 951 969 978 996 1005 
3204+* RETURN CONTROL 1923 1032 1050 1059 1077 1086 1104 1113 1131 
3205+* 1140 1158 1167 1185 1194 1212 1221 1239 1248 
3206+* B TURTN* RETURN TO MDI SUPERVISOR 1266 1275 1293 1302 1320 1329 
3207+* 45 @TU XX ABSOLUTE. HEX VALUE (90000500) 
CMAUSER LSI SS SSS SSS SS SSS TS SSCS SSLS eS SSS OCS CSCS CS SCLC SCSCCLCSCCSCCSCCOCS CS SS SSE eS ST ae Te 645 660 675 690 720 732 744 756 768 
OO3EEE 6F0OD 39A2 3209+T7A28 MVW R] TURTN SAVE RETURN ADDRESS 780 7192 804 816 828 840 852 864 876 
OO3EF2 4020 3960 7A28 3210+ MVWI '7A28", STUID SAVE TU ID FOR DISPLAY 888 900 
OO3EF8 4424 395A 3211+ MVA OPTNG. RG SET UP POINTER ADRS IN R4 3155 BEGIN ADDRESS. HEX LOCATION (00003D84) IN CSECT(I7A14 ) LENGTH (2) 
OO3EFC 6803 3CE4 3212+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 RL 3176 
003F00 3F16 Se DC A (X7A 28) ERROR ADRS FOR INVALID PREP 3180 BITO080 qapoor ute. HEX VALUE (00000080) 
+ 
OO3FO2 4c64 3215 L7A28 TBTS R4, XE) SET EXP ERROR CNTL BIT ON 3175 BUFPT ADDRESS. HEX LOCATION (OO003EE0) IN CSECT(I7A14 ) LENGTH (2) 
0O0O3F04 8838 189A 3CD4 3216 MVW UPARM1*,IODCB LOAD DATA PATTERN IN 2ND WD OF IDCB 3131 
OO3FOA 4020 3CD6 0048 3217 MVWI X'0048", TOMOD SETUP WRITE DIAG WD 1 IDCB MOD 1741 CE ABSOLUTE. HEX VALUE (0000002A) 
003F10 6E03 3B5C 3218 BAL $WRTO,RO WRITE DIAG WORD 1 2837 2951 3021 
003F14 3F16 3219 DC A X74 58) RETURN TO MDI IF ERROR 1826 CICB ABSOLUTE. HEX VALUE (00000014) 
003F16 6812 39A2 3220 X7A28 B TURTN* RETURN TO MDI 3087 
3222 COPY fT7A29 19MAY78 1923 CLDCB ADDRESS. HEX LOCATION (000039C2) IN CSECT(I7A14 ) LENGTH (2) 
3223 T7A29 TUIT X7A29 2129 
B22, + RH HH IE RII RO OCR II OK Fk ok tedeatotok tick tk 06 FEB 7 6% * 1739 cs ABSOLUTE. HEX ease sold 
3225+* 2838 2841 94 0 019 
a2264" TEST UNIT 1740 CSA ghbae” UTE. HEX VALUE (00000029) 
+ 
Se ks WRITE/READ DIAGNOSTIC REGISTER 1 LOOP 1770 CSBUF a epRESS. HEX LOCETT ON (00003980) IN CSECT (I7A14 ) LENGTH (1) 
+ 
323055 PURPOSE 1961 CSDCB sABBRESS.- HEX LOCATION (00003A02) IN CSECT(I7A14 ) LENGTH (2) 
+ 
3232+%* WRITE TO CAP DIAGNOSTIC WORD 1 USING DATA PATTERN PASSED 3266 DATBF ADDRESS. HEX LOCATION (00003F64) IN CSECT(I7A14 ) LENGTH (2) 
3233+ TO TEST UNIT BY THE MAP AND THEN READ DIAGNOSTIC WORD 1. 3260 
Saas NO RESULT WORDS ARE RETURNED. 1760 DCBUF ADDRESS, HEX LOCATION (00003970) IN CSECT(I7A14 ) LENGTH (1) 
+ 
a 23685 CALLING SEQUENCE 3176 DC2PT 3 RPBRESS. HEX LOCATION (OOOO03EE2) IN CSECT (I7A14 ) LENGTH (2) 
3238+* MDI=$TUXX,'T7A29, REPT=L7A29, PLNG=4, PARM=XXXX' 105 DEVADD ADDRESS. HEX LOCATION(000019D0) IN CSECT(I7A14 ) LENGTH (1) 
3239+* 1790 3042 3084 315 
aa RETURN CONTROL 1755 DEV1 aORBESS. HEX LOCATION(00003968) IN CSECT(I7A14 ) LENGTH (2) 
es B TURTN* RETURN TO MDI SUPERVISOR 1758 DEV4 pABRRESS, HEX LOCATION (0000396E) IN CSECT(I7A14 ) LENGTH (2) 
32.4 Uh + 2 OK ROI IR OI ICICI I IO IGIOR ICI II ROI IK a fok ak ai akc ak 1912 DGDCB ADDRESS. HEX LOCATION (000039B2) IN CSECT(I7A14 ) LENGTH (2) 
OO3F1A 6FOD 39A2 32454+T7A29 MVW R7 TURTN SAVE RETURN ADDRESS 2176 
003F1E 4020 3960 7A29 3246+ MVWI 17429" $TUID SAVE TU ID FOR DISPLAY 67 DUMMY ABSOLUTE. HEX VALUE (00000000) 
OO3F24 4424 395A 3247+ MVA OPT NT, RG SET UP POINTER ADRS IN R4& 636 1346 1364 
003F28 6503 3CE4 3248+ BAL  $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 1347 ENTPT ADDRESS. HEX LOCATION(00002B8C) IN CSECT(I7A14 ) LENGTH (1) 
003F2C 3F60 3249+ DC A (X7A29) ERROR ADRS FOR INVALID PREP 198 
3250+* 4u7 EQ ABSOLUTE. HEX ALTE (90000000) 
OO3F2E 8838 189A 3CD4 3251 L7A29 MVH TOPARR + IODCB MOVE PATTERN TO 2ND WD OF IDCB 723 735 T47 771 783 795 807 819 
003F34 4020 3CD6 0048 3252 MVWL 'OO4s8', fOmOD SETUP WRITE DIAG WD 1 IDCB MOD 831 843 855 867 879 891 903 
OO3F3A 4C64 3253 TBTS (Ra XE SET EXPT ERROR CNTL BIT ON 1732 ER ABSOLUTE. HEX VALUE (90000021) 
003F3C 6803 3B5C 3254 BAL WRTO, RO WRITE DIAG WORD 1 2190 2855 2876 2959 3001 3026 3256 
OO3F40 3F60 3255 DC A X7A29) RETURN TO MDI IF ERROR 1812 EXIT ABSOLUTE. HEX VALUE (00000006) 
OO3F42 4CA1 3256 TBTR i 4, ER) INTERRUPT ERROR? 3008 
OO3F44 120D 3257 JON 7TA29 YES - RETURN TO MDI 3178 FAKETU ADDRESS. HEX LOCATION (OO003EE6) IN CSECT(I7A14 ) LENGTH (2) 
003F46 4020 3A32 2088 3258 MVWL X' 2088", RDDCB LOAD READ DIAG WORD 1 CNTL WD 31744 
003FUC 4020 3A3E 0002 3259 MVWI 2,RDDCB+t 12 SETUP BYTE CNT TO READ WD 1 1426 F00062 ADDRESS. HEX LOCATION (00002D8E IN CSECT (I7A14 L LENGTH (1) 
003F52 4020 3A40 3F64 3260 MVA DATBF, RDDCB+14 SETUP ADDR OF READ BUFFER 934 961 988 1015 1042 1069 1096 123 1150 
003F58 4Cc64 3261 TBTS fea xB) SET EXPT ERROR CNTL BIT ON 1177. 1204 1231 1258 1285 1312 1339 
003F5A 6E03 3BAC 3262 BAL DGRD, R6 READ DIAG WORD 1 1372 F00086 ADDRESS. HEX LOCATION(O0002B9A) IN CSECT(I7A14 ) LENGTH (1) 
003F5E 3F60 3263 DC 59) RETURN TO MDI IF ERROR 658 
003F60 6812 39A2 3264 X7A29 B TURTN* RETURN TO MDI 1382 F00091 ADDRESS. HEX LOCATION(OOOO2BFA) IN CSECT(I7A14 ) LENGTH (1) 
joer ea 0000 3266 DATBF mis A (*-*) 1392 F00096 ADDRESS. HEX LOCATION(00002C5A) IN CSECT(I7A14 ) LENGTH (1) 
1402 F00101 ADDRESS. HEX LOCATION(OOOO2CBA) IN CSECT(I7A14 ) LENGTH (1) 
1406 F00107 ADDRESS. HEX LOCATION(OOO02CCE) IN CSECT(I7A14 ) LENGTH (1) 
1416 F00173 ADDRESS. HEX LOCATION (00002D2E) IN CSECT(I7A14 ) LENGTH (1) 
1566 F00186 {ABBRESS. HEX LOCATION(000033BA) IN CSECT(I7A14 ) LENGTH (1) 
1574 F00188 {ABBRESS.- HEX LOCATION (00003414) IN CSECT(I7A14 ) LENGTH (1) 
1582 F00201 ADDRESS. HEX LOCATION(O000346E) IN CSECT(I7A14 ) LENGTH (1) 
1590 F00203 ADDRESS. HEX LOCATION(000034C8) IN CSECT(I7A14 ) LENGTH(1) 
1598 F00216 ADDRESS. HEX LOCATION (00003522) IN CSECT(I7A14 ) LENGTH (1) 
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1606 
1614 
1622 
1630 
1638 
1646 
1654 
1662 
1670 
1678 
1686 
1438 
1446 
1454 
1462 
1470 
1478 
14 86 
1494 
1502 
15 10 
1518 
15 26 
1534 
1542 
1550 
1558 
3184 
1832 
1808 
2053 
1734 
3051 
2946 
2955 
2959 
2986 
3008 
2989 
2994 
3002 
3042 
3044 


3045 

37 
3161 
1754 
3215 


1731 
3135 
1743 
1738 
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NAME 


F00218 
F00231 
F00233 
FO0 246 
FO0248 
F00261 
F00 263 
F00276 
FO00278 
F00291 
F00293 
FO00306 
F00308 
F00321 
F00323 
F00336 
F00338 
F00351 
F00353 
F00366 
F00368 
F00381 
F00383 
F00396 
F00398 
FOO411 
FO0413 
HEBLK 
HTOE 
IDLE 
IDOO 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
I7A14 
LINE1 
LSTIO 
L7A28 


MT 
MVBUF 
NG 

NI 
NN0001 
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CSECT (I7A14 
CSECT (I7A14 
CSECT (I7A14 
CSECT (I7A14 
CSECT (I7A14 
CSECT (I7A14 
CSECT (I7A14 
2157 2160 


3090 3216 
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CSECT(I7A14 
981 


999 
1107 1116 
1224 1242 
CSECT(I7A14 
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ATTRIBUTES AND REFERENCES 
1207 
ADDRESS. HEX LOCATION (0000357C) IN 
ADDRESS. HEX LOCATION(000035D6) IN 
jADDRESS. HFX LOCATION (00003630) IN 
ADDRESS. HEX LOCATION (0000368A) IN 
ADDRESS. HEX LOCATION (000036E4) IN 
ADDRESS. HEX LOCATION (0000373E) IN 
ADDRESS. HEX LOCATION (00003798) IN 
ADDRESS. HEX LOCATION (000037F2) IN 
ADBRESS- HEX LOCATION (0000384C) IN 
ADDRESS. HEX LOCATION (000038A6) IN 
ADDRESS. HEX LOCATION (00003900) IN 
ADDRESS. HEX LOCATION(00002E1A) IN 
ADDRESS. HEX LOCATION (00002E74) IN 
ADDRESS. HEX LOCATION (00002ECE) IN 
ADDRESS. HEX LOCATION (00002F28) IN 
ADDRESS. HEX LOCATION (00002F82) IN 
ADDRESS. HEX LOCATION (00002FDC) IN 
ADDRESS. HEX LOCATION (00003036) IN 
ADDRESS. HEX LOCATION (00003090) IN 
ADDRESS. HEX LOCATION (000030EA) IN 
ADBRESS. HEX LOCATION (00003144) IN 
ADDRESS. HEX LOCATION (0000319F) IN 
ADDRESS. HEX LOCATION (000031F8) IN 
{ADBRESS. HEX LOCATION (00003252) IN 
ADDRESS. HEX LOCATION(000032AC) IN 
{ADDRESS. HEX LOCATION (00003306) IN 
ADDRESS. HEX LOCATION (00003360) IN 
ADDRESS. HEX LOCATION (00003EE8) IN 
ABSOLUTE. HEX VALUE (0000001A) 
ABSOLUTE. HEX VALUE (00000002) 
2870 2872 
ADDRESS. HEX LOCATION(00003A9C) IN 
2034 2142 
ABSOLUTE. HEX VALUE (00000023) 
2189 2856 2868 2989 
ADDRESS. HEX LOCATION (00003CDC) IN 
ADDRESS. HEX LOCATION (00003C40) IN 
> ADDRESS. HEX LOCATION (00003C58) IN 
ADDRESS. HEX LOCATION (00003C60) IN 
ADDRESS. HEX LOCATION (00003C64) IN 
ADDRESS. HEX LOCATION(00003C94) IN 
3003 3006 
ADDRESS. HEX LOCATION (00003C6C) IN 
2954 2958 2960 
ADDRESS. HEX LOCATION (00003C7A) IN 
ADDRESS. HEX LOCATION (00003C88) IN 
ADDRESS. HEX LOCATION(00003CD0) IN 
2192 2857 91 
ADDRESS. HEX LOCATION (00003CD4) IN 
2126 2129 2132 2140+ 2151 2154 
2172 2176 2203 2206 2839 2845 
ADDRESS. HEX LOCATION (00003CD6) IN 
2193 2194 2831 2834 ° 2840 3217 2 
CSECT. START(00002500) LENGTH (6758) ESDID(1) 
ghBBRESS. HEX LOCATION (00003DBC) IN 
ADDRESS. HEX LOCATION(00003966) IN 
2179 2843 3094 
ADDRESS. HEX LOCATION (00003F02) IN 
711. 918 927 945 954 72 
1026 1035 1053 1062 1080 1089 
1143 1161 1170 1188 1197 1215 
1269 1278 1296 1305 1323 1332 
gABSOLUTE. HEX VALUE (00000020) 
ADDRESS. HEX LOCATION(00003D48) IN 
3139 3142 
ghBSOLUTE. HEX VALUE (0000002C) 
ABSOLUTE. HEX VALUE (00000027) 
ADDRESS. HEX LOCATION (000026B0) IN 
315 1357 
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32 
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125 
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LENGTH (1) 
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) LENGTH (2) 
) LENGTH (2) 
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) LENGTH (2) 
) LENGTH (2) 
Saat 
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‘ 
LENGTH (2) 


) LENGTH (40) 
) LENGTH (2) 
) LENGTH (2) 
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) LENGTH (2) 


) LENGTH (2) 
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DECLARED NAME 
657 N00002 
660 N00003 
672 N00004 
675 N00005 
687 N00006 
690 N00007 
702 N00008 
708 N00009 
717 N00010 
720 N00011 
732 N00012 
744 N00013 
756 N00014 
768 N00015 
780 N00016 
792 N00017 
804 N00018 
816 N00019 
828 400020 
840 N00021 
852 N00022 
864 N00023 
876 NO0024 
888 N00025 
900 N00026 
912 N00027 
915 N00028 
924 N00029 
933 N00030 
936 N00031 
939 N00032 
942 N00033 
951 N00034 
960 N00035 
963 N00036 
966 N00037 
969 N00038 
978 400039 
987 NO00040 
990 yO0041 
993 N00042 
996 N00043 
1005 No00a4 
1014 NO0045 
1017 N00046 
1020 NO0047 
1023 NOOO48 
1032 + Noo04g9 
1041 N00050 
1044 N00051 
1047 N00052 
1050 N00053 
1059 N00054 
1068 N00055 
1071 N00056 
1074 N00057 
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ADDRESS. 
321 64 
ADDRESS. 
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ADDRESS. 
327 66 
ADDRESS. 
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ADDRESS.. 
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ADDRESS. 
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COMMON ADAPTER SUB MAP P/N=6826984 EC=375222 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 

886 898 910 922 931 949 958 976 985 
1003 1012 1030 1039 1057 1066 1084 1093 1111 
1120 1138 1147 1165 1174 #41192 1201 1219 1228 
1246 1255 1273. 1282 1300 1309 1327 1336 

ADDRESS. HEX LOCATION (00001800) IN CSECT(I7A14 ) LENGTH (1) 

71 72 73 74 75 76 77 78 9 
80 81 82 83 84 85 86 87 88 
89 90 91 92 93 94 95 96 97 
98 99 100 101 102 103 108 ##+#105 #106 

107. 108 109 110 117 #41112 3143 
ghBSOLUTE. HEX VALUE (O000F1FO) 
ghBSOLUTE. HEX VALUE (0000000) 

ADDRESS. HEX LOCATION (0000332) IN CSECT(I7A14 __) LENGTH (2) 
2148 2149 2151 2206 2207 2208 3258 (3259 3260 
ghBSOLUTE. HEX VALUE (00000013) 
oADDRESS. HEX LOCATION (00003A52) IN CSECT(I7A14  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003462) IN CSECT(I7A14 ) LENGTH (2) 

ADDRESS. HEX LOCATION (00003A8C) IN CSECT(I7A14 Y LENGTH (2) 
1916 1932 1943 1954 1976 1987 1998 —2009 2020 
oADBRESS.. HEX LOCATION (000039E2) IN CSECT(I7A14  ) LENGTH(2) 

REGISTER. HEX VALUE (00000000) 

2193 2195 219 
REGISTER. HEX VALUE (0000000 1) 
3132. 3135 3138 3141 
REGISTER. HEX VALUE (00000002) 
3137 3138 

REGISTER. HEX VALUE (00000093) 

2079 2081 2133 2136 2143 2144 2147 2150 2161 
2164 2180 2183 2186 2188 2209 2210 2831 2844 
2847 2848 2851 2853 2910 2911 2912 2946 2947 
2953 2957 2986 2987 2992 3005 3037 3082 3084 
3085 3093 3130 3131 3135 3147 

REGISTER. HEX VALUE (00000004) 

2189 2190 2191 2837 2838 2841 2855 2856 2858 
2859 2862 2868 2876 2948 2949 2951 2955 2959 
2988 2989 2990 3000 3001 3002 3004 3007 3017 
3019 3021 3024 3026 3211 3215 3247 3253 3256 

REGISTER, HEX VALUE (00000005) 

2080 2081 2134 2136 2142 2144 2148 2150 2162 
2164 2181 2183 2184 2186 2208 2210 2845 2847 
2849 2851 2867 2874 2996 2997 2998 3029 3030 
3032 3034 3083 3084 3129 3142 

REGISTER. HEX VALUE (00000006) 

2082 2083 2179 2843 2863 2877 2913 3018 3023 
3025 3033 3036 3038 3088 3094 3096 3134 3139 
3140 3212 3218 3248 3254 3262 

REGISTER. HEX VALUE (00000007) 

1798 2078 2135 2141 2149 2163 2182 2185 2192 
2207 2846 2850 2857 2952 2993 3087 3086 3091 
3124 3133 3136 3148 3151 3209 3245 

ADDRESS, HEX LOCATION (00003968) IN CSECT(I7A14  ) LENGTH(2) 
1946 2023 2079 2134 2137 2162 2165 
ADDRESS. HEX LOCATION (000039F2) IN CSECT(I7A14 ) LENGTH (2) 

ABSOLUTE. HEX VALUE (00000008) 

ADDRESS. HEX LOCATION (000019C4) IN CSECT(I7A14 ) LENGTH(1) 
gADBRESS. HEX LOCATION (000018BA) IN CSECT(I7A14 ) LENGTH (1) 
ADDRESS, HEX LOCATION (0000189A) IN CSECT(I7A14  ) LENGTH(1) 

ADDRESS. HEX LOCATION (000039A2) IN CSECT(I7A14  ) LENGTH(2) 
3153. 3209 3220 3245 3264 
ghBBRESS. HEX LOCATION (00001818) IN CSECT(I7A14 ) LENGTH(1) 

ADDRESS. HEX LOCATION (0000181A) IN CSECT(I7A14  ) LENGTH(1) 
3126 3127 3128 3130 3186 

ADDRESS. HEX LOCATION (000039AA) IN CSECT(I7A14 ), LENGTH (6) 

647 662 677 692. 722 34 746 758 #42770 

182 734 806 818 830 842 854 866 878 

ADDRESS, HEX LOCATION (OOQQ3EEE) IN CSECT(I7A14 ) LENGTH (4) 

710 917 926 944° 953 71 980 998 1007 
1025 1034 1052 1061 1079 1088 1106 1115 1133 
1142 1160 1169 1187 1196 1214 1223 1241 1250 
1268 1277 1295 1304 1322 1331 
ADDRESS. HEX LOCATION (00003422) IN CSECT(I7A14 ) LENGTH (2) 
jADDRESS. HEX LOCATION (00003A42) IN CSECT(I7A14  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003412) IN CSECT(I7A14 ) LENGTH (2) 
ABSOLUTE. HEX VALUE (00000010) 
jABSOLUTE. HEX VALUE (00000011) 

ADDRESS, HEX LOCATION (00003A80) IN CSECT(I7A14  ) LENGTH(2) 
1935 2012 2080 2169 2173 
jADDRESS. HEX LOCATION (000039D2) IN CSECT(I7A14  ) LENGTH(2) 

ABSOLUTE. HEX VALUE(00000024) 

2955 3017 3215 3253 3261 

ABSOLUTE. HEX VALUE (00000022) 
2191 2859 3002 

ADDRESS. HEX LOCATION (00003BC2) IN CSECT (I7A14 ), LENGTH (4) 
2127 2130 2138 2145 + 2152 2155 2158 2166 2170 
ADDRESS. HEX LOCATION (00003C96) IN CSECT(I7A14 ) LENGTH (2) 
ghDBRESS- HEX LOCATION (00003CA8) IN CSECT(I7A14 ) LENGTH(2) 

ADDRESS. HEX LOCATION(O0003CBE) IN CSECT(I7A14  ) LENGTH(4) 
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